AfterRegisterExtension event

This event occurs immediately after the extension is registered to a vault in the Configurator.

Syntax

Private Sub AMUIExtension_AfterRegisterExtension(ByVal Environment As AMEDM.IAMEDMEnvironment, ByVal PropertySet As AmOm.IAMPropertySet, ByVal ExtensionRef As AmOm.IAMComRef)
    On Error GoTo error_handler
    
    Dim dsg As AMUIExtension
    Set dsg = Me
        
    ' Get the document type
    Dim DocType As AMDocumentType
    Set DocType = Environment.DocumentTypes.Item("CADDrawing")
        
    ' Assign the extension to the document type
    dsg.AddExtensionToDocumentType Environment, ExtensionRef, DocType
    
    Exit Sub
error_handler:
    MsgBox Err.Description
End Sub

Related information

BeforeRegisterExtension event